home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1183copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.4 KB  |  40 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1183"
  4. Company = "Warner Active"
  5. title = "Where's Waldo? At the Circus"
  6. Price = 19.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PC CD-ROM"
  13. Title Description = "Waldo's unique search-and-find approach teaches kids solving skills using mathematical concepts to decipher mystery, find a magic whistle and save the circus. Includes educational exercises with five different difficulty levels, variable outcomes in all key areas for high replayability, plus extensive help from Waldo for the child and guidance for parents as well."
  14.  
  15.  
  16.  
  17. -------------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1,   GetLine(titl,counter) )   
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat 
  25. starttitle = LineInTitle
  26. num of titles shown = 6
  27. endtitle = starttitle + num of titles shown - 1
  28. titles = ""
  29. title highlight = ""
  30. repeat with counter = starttitle to endtitle
  31. nextline = GetLine(titl,counter)
  32. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  33. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  34. end repeat
  35. dpage = CurrentPageID
  36.  
  37. newtitle = FALSE
  38. end if
  39.  
  40.